How to run two functions in succession with xmonad.hs's keymap